home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Tutorials / Macintosh SE⁄30 Training / Apple Macintosh SE⁄30 / Apple Macintosh SE_30 / background_105945.txt < prev    next >
Text File  |  1989-08-22  |  3KB  |  129 lines
  1. -- background: 105945 from stack: in
  2. -- bmap block id: 106215
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: contentBack
  6. ----- HyperTalk script -----
  7. on closeBackground
  8.   global mapLoc
  9.   put 24 into mapLoc
  10.   put "yes" into line 12 of field "footprints" of card "Map"
  11. end closeBackground
  12.  
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=428 top=317 right=342 bottom=456
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 18611 / 18611
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: prev
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   visual scroll right
  30.   go prev
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (button)
  36. -- low flags: 00
  37. -- high flags: 2000
  38. -- rect: left=455 top=317 right=342 bottom=483
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 18612 / 18612
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: next
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   visual scroll left
  50.   go next
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 3 (button)
  56. -- low flags: 00
  57. -- high flags: 2000
  58. -- rect: left=482 top=317 right=342 bottom=510
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 18613 / 18613
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: return
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   pop card into lastPush
  70.   if the short name of this stack is not in lastPush then
  71.     visual dissolve
  72.     go card "Map"
  73.   else
  74.     visual dissolve
  75.     go lastPush
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 4 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=128 top=23 right=45 bottom=508
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 21
  89. -- text size: 18
  90. -- style flags: 0
  91. -- line height: 20
  92. -- part name: cardTitle
  93.  
  94.  
  95. -- part 12 (field)
  96. -- low flags: 01
  97. -- high flags: 0000
  98. -- rect: left=128 top=0 right=22 bottom=508
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 21
  103. -- text size: 18
  104. -- style flags: 10240
  105. -- line height: 19
  106. -- part name: Title
  107.  
  108.  
  109. -- part 13 (button)
  110. -- low flags: 00
  111. -- high flags: A002
  112. -- rect: left=1 top=1 right=16 bottom=40
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 3
  117. -- text size: 9
  118. -- style flags: 0
  119. -- line height: 12
  120. -- part name: Menu
  121. ----- HyperTalk script -----
  122. on mousedown
  123.   global checkedItem, clickTime
  124.   put 13 into checkedItem
  125.   mainMenu
  126.   put the ticks into clickTime
  127. end mousedown
  128.  
  129.